﻿<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
<link href="images/css1/css.css" rel="stylesheet" type="text/css">
</head>
<SCRIPT language=javascript>
<!--
//被修改过 条件判断，下面的语句无效
var displayBar=true;
function switchBar(obj){
	if (displayBar)
	{
		parent.frame.cols="0,*";
		displayBar=false;
		obj.value="打开左边管理菜单";
	}
	else{
		parent.frame.cols="195,*";
		displayBar=true;
		obj.value="关闭左边管理菜单";
	}
}

function fullmenu(url){
	if (url==null) {url = "admin_left.asp";}
	parent.leftFrame.location = url;
}

//-->
</SCRIPT>


 

 <% Dim theInstalledObjects(4)
theInstalledObjects(0) = "Gatherer.VBProcess"
theInstalledObjects(1) = "Scripting.FileSystemObject"
theInstalledObjects(2) = "adodb.connection"

theInstalledObjects(3) = "JMail.SMTPMail"
theInstalledObjects(4) = "CDONTS.NewMail"
Function IsObjInstalled(ByVal strClassString)
	Dim xTestObj,ClsString
	On Error Resume Next
	IsObjInstalled = False
	ClsString = strClassString
	Err = 0
	Set xTestObj = Server.CreateObject(ClsString)
	If Err = 0 Then IsObjInstalled = True
	If Err = -2147352567 Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
	Exit Function
End Function %>


<body>
<table 
border="0" align="left" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="table">
  <tbody>
    <tr>
      <th width="818" height="25" align="left" class="bg_tr"><div align="justify"><img src="images/日志.jpg" width="30" height="24">您的日志
          <label>
        
          <input type="submit" name="Submit" value="写新日志">
          <div align="right" class="td_bg">分类查看
            <select name="select">
              <option>默认分类</option>
              <option selected>全部</option>
            </select>
              </div>
      </label></th>
    </tr>
  
    <tr>
      <td height="271" align="left" class="td_bg" ><p>
        <label>
        <input type="text" name="textfield">
        </label>
        <A href="System_Admin.asp" 
            target=main></A>编辑&nbsp;| 删除</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>
          <input type="text" name="textfield2">
        编辑&nbsp;| 删除</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>
          <input type="text" name="textfield3">
        编辑&nbsp;| 删除</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>
          <input type="text" name="textfield4">
编辑&nbsp;| 删除</p>
        <p>
          <label></label>
        </p>
      <p>&nbsp;</p></td>
    </tr>
    <tr>
      <td width="818" height="29" align="center" class="td_bg" ><p>&nbsp;</p>      </td>
    </tr>
  </tbody>
</table>

</body>
</html>
